Monster Media 1996 #15/Monster Media Number 15 (Monster Media)(July 1996).ISO/bbs_lord/life118d.zip/LIFE.ZIP/TRISTXT.DAT

Text File | 1996-03-12 | 11KB | 357 lines

@#Tavern
`<SetOptions>=[H,D,W,A,C,T,R]
`<Clear>
`<ShowAnsi>=[(TLifesDir),beermug.ans]
`0                           Trisnic's Tavern
`0-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
`2  You feel a great need for ale and someone to talk to
`2Maybe here in lord life you could find out more about the
`2real lives of the champions of lord!

`2     (`5H`2)ave a real ale
`2     (`5D`2)rink some of that flat beer country folk like
`2     (`5W`2)onder who has chatted with the bartender
`2     (`5A`2)sk the bartender about the real life of someone
`2     (`5C`2)hat about your real life to the bar tender
`2     (`5T`2)alk to Trisnic
`2     (`5R`2)eturn to the big city
@#TavernOptions?
`<SetMenu>=[Tavern]
@#TavernOptionsW
`<ShowCommList>
@#TavernOptionsT
`<NewLine>
`<if>=[(FTalked),(TheUser),1,@#FTalked]
`<SetVal>=[(FTalked),(TheUser),1]
`$Trisnic looks at you...
`2You look at Trisnic...
`2Trisnic says: "So you would like to talk eh?"
`5You wonder if you should really have bothered her...
`2Trisnic says: "Well ok I can chat fer a sec..."
`<Random>=[(TempInt0),(TheUser),1,100]
`<ifless>=[(TempInt0),(TheUser),10,@#Tris10]
`<ifless>=[(TempInt0),(TheUser),20,@#Tris20]
`<ifless>=[(TempInt0),(TheUser),30,@#Tris30]
`<ifless>=[(TempInt0),(TheUser),40,@#Tris40]
`<ifless>=[(TempInt0),(TheUser),50,@#Tris50]
`<ifless>=[(TempInt0),(TheUser),60,@#Tris60]
`$Trisnic says: "Sometimes weird events happen..."
`2You and Trisnic speak of weird events in the forest...
`2 YOU WONDER WHAT WEIRD EVENT COULD OCCUR IN THE FOREST
`<SetVal>=[(LWeirdEvent),(TheUser),5]
@#Tris60
`$Trisnic says: "Experience in the forest is crucial..."
`2You and Trisnic have a nice chat and...
`2 YOU DECIDE TO FIGHT IN THE FOREST SOME MORE
`<AddVal>=[(LForestFights),(TheUser),20]
`<NewLine>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU WON 20 FOREST FIGHTS]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),%]
@#Tris50
`$Trisnic says: "Charm is usefull to have in lord..."
`2You and Trisnic have a nice chat and...
`<AddVal>=[(LCharm),(TheUser),(Level)]
`<AddVal>=[(LCharm),(TheUser),(Level)]
`2 YOU FEEL YOU COULD charm THE BIRDS FROM THE TREES
`<NewLine>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU GAINED DOUBLE YOUR LEVEL NUMBER IN CHARM!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),%]
@#Tris40
`$Trisnic says "I cannot always help you...
`2You and Trisnic have a nice chat but...
`2 YOU FEEL NO DIFFERENT
`<NewLine>
@#Tris30
`$Trisnic says: "Lets talk about Defence..."
`2You agree and Trisnic tells you how to best defend yourself...
`<AddVal>=[(LDefence),(TheUser),(Level)]
`<AddVal>=[(LDefence),(TheUser),(Level)]
`2 YOU FEEL MORE PROTECTED
`<NewLine>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU GAINED DOUBLE YOUR LEVEL NUMBER IN DEFENCE!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),%]
@#Tris20
`$Trisnic says: "Lets talk about Strength..."
`2You agree and Trisnic tells you how to grow stronger...
`<AddVal>=[(LStrength),(TheUser),(Level)]
`<AddVal>=[(LStrength),(TheUser),(Level)]
`2 YOU FEEL STRONGER
`<NewLine>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU GAINED DOUBLE YOUR LEVEL NUMBER IN STRENGTH!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),%]
@#Tris10
`$Trisnic says: "Lets talk about hit points..."
`2You agree and Trisnic tells you how to gain more hit points...
`2 YOU FEEL ENERGIZED
`<AddVal>=[(LordHP),(TheUser),(Level)]
`<NewLine>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOUR HITPOINTS GOT BOOSTED BY YOUR LEVEL NUMBER!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),%]
@#TavernOptionsH
`<NewLine>
`<if>=[(FHadDrink),(TheUser),1,@#FHadDrink]
`<SetVal>=[(FHadDrink),(TheUser),1]
`$The bartender looks at you...
`2You look at the bartender...
`<AddVal>=[(FLifeStr),(TheUser),200]
`2YOU GAIN 200 LIFE Strength POINTS!
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU GAINED 200 LIFE STRENGTH POINTS!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),%]
@#TavernOptionsD
`<NewLine>
`<if>=[(FHadBeer),(TheUser),1,@#FHadDrink]
`2The beer needs to be imported...
`<RetOff>
`3Pay import tax of 20,000 Life dollars? (Y/N) `0[`5Y`0]:
`<Space>
`<GetAns>=[(TempStr0),YN,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),N,@#Abort]
`<ifless>=[(FLifeGold),(TheUser),20000,@#NSF]
`<SubVal>=[(FLifeGold),(TheUser),20000]
`<SetVal>=[(FHadBeer),(TheUser),1]
`$The bartender looks at you...
`2You look at the bartender...
`<SetVal>=[(TempDbl0),(TheUser),5]
`<MultVal>=[(TempDbl0),(TheUser),(Level)]
`<AddVal>=[(LStrength),(TheUser),(TempDbl0)]
`<retoff>
`2YOU GAIN
`<Space>
`<PrintVal>=[(TempDbl0),(TheUser)]
`<Space>
`2LORD Strength POINTS!
`<RetOn>
`<NewLine>
`<BreakIfNoMail>
`<SetVal>=[(TempStr1),(TheUser),YOU GAIN ]
`<AddVal>=[(TempStr1),(TheUser),(TempDbl0)]
`<AddVal>=[(TempStr1),(TheUser), LORD STRENGTH POINTS!]
`<FilePrint>=[(TempStr1),(TheUser),(TLordsDir),(TMailSlot),2]
@#TavernOptionsA
`<NewLine>
`2  Curious about a friend in lord you decide to ask the
`2bartender what he knows about your friend...
`<if>=[(CRealSex),(TheUser),0,@#NotChat]
`2You saunter up to the bar to ask the bartender about the people of lord.
`2  The bartender looks at you in askance...Well pal...I know a few things
`2about some players...but only what they've told me themselves...
`2
`2
`$So who might ye be interested in then?
`<RetOff>
`2 >
`<LordIn>=[(TempStr0),70,100,2,(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),,@#Abort]
`<NewLine>
`<FindCommUser>=[(TempStr0),(TheUser)]
`<NewLine>
`<if>=[(TempStr0),(TheUser),###NotFound###,@#UserNotFound]
`<if>=[(CRealSex),(TempStr0),0,@#UserNoInfo]
`<NewLine>
`<RetOff>
`5-
`<PrintVal>=[(LordNick),(TempStr0)]
`9's age is:`2
`<PrintVal>=[(CAge),(TempStr0)]
`<NewLine>
`5-
`<PrintVal>=[(LordNick),(TempStr0)]
`9's eye color is:
`<SetVal>=[(TempInt3),(TempStr0),(CEyes)]
`<if>=[(TempInt3),(TheUser),0,`2Unknown]
`<if>=[(TempInt3),(TheUser),1,`4Red]
`<if>=[(TempInt3),(TheUser),2,`2Green]
`<if>=[(TempInt3),(TheUser),3,`3Blue]
`<if>=[(TempInt3),(TheUser),4,`!Greenish Blue]
`<if>=[(TempInt3),(TheUser),5,`3Blueish Green]
`<if>=[(TempInt3),(TheUser),6,`7Grey]
`<if>=[(TempInt3),(TheUser),7,`!Light Blue]
`<if>=[(TempInt3),(TheUser),8,`9Dark Blue]
`<if>=[(TempInt3),(TheUser),9,`2Dark Green]
`<if>=[(TempInt3),(TheUser),10,`2Dark Brown]
`<if>=[(TempInt3),(TheUser),11,`2Light Brown]
`<if>=[(TempInt3),(TheUser),12,`7Black as midnight]
`2
`<NewLine>
`5-
`<PrintVal>=[(LordNick),(TempStr0)]
`9's hair color is:
`<SetVal>=[(TempInt3),(TempStr0),(CHair)]
`<if>=[(TempInt3),(TheUser),0,`2Unknown]
`<if>=[(TempInt3),(TheUser),1,`4Red]
`<if>=[(TempInt3),(TheUser),2,`7White]
`<if>=[(TempInt3),(TheUser),3,`7Blonde]
`<if>=[(TempInt3),(TheUser),4,`2Dirty blonde]
`<if>=[(TempInt3),(TheUser),5,`2Mousey color]
`<if>=[(TempInt3),(TheUser),6,`2Light Brown]
`<if>=[(TempInt3),(TheUser),7,`2Brown]
`<if>=[(TempInt3),(TheUser),8,`2Dark Brown]
`<if>=[(TempInt3),(TheUser),9,`2Very Dark Brown]
`<if>=[(TempInt3),(TheUser),10,`2Extreemly Dark Brown]
`<if>=[(TempInt3),(TheUser),11,`2So dark it looks black]
`<if>=[(TempInt3),(TheUser),12,`2So dark...it is black]
`<NewLine>
`5-
`<PrintVal>=[(LordNick),(TempStr0)]
`<if>=[(CRealSex),(TempStr0),0,`9 didn't enter a comment]
`<if>=[(CRealSex),(TempStr0),5,`9 is really `#female]
`<if>=[(CRealSex),(TempStr0),10,`9 is really `1male]
`<NewLine>
`5-
`<PrintVal>=[(LordNick),(TempStr0)]
`<if>=[(CLikeToMeet),(TempStr0),0,`4 is anti-social]
`<else>=[(CLikeToMeet),(TempStr0),0,`% is open to meeting another player]
`<NewLine>
`5-
`<PrintVal>=[(LordNick),(TempStr0)]
`9 entered this comment:
`<NewLine>
`2 >
`<PrintVal>=[(Comment),(TempStr0)]
`<NewLine>
`<RetOn>
@#TavernOptionsC
`<NewLine>
`2  Lord is becoming more than just a game in some parts...
`2Lord is almost a way of life for some people...
`2  Lord life expands on all aspects of lord...And one thing that
`2many lord players like to do is make friends with like minded people.
`5  Sometimes even more than friends...
`2So if you might at some point like to meet someone from
`2this game...why don't you give a few stats about yerself...

`<RetOff>
`2Do you wish to enter your data now? (Y/N) `0[`5N`0]:
`<Space>
`<GetAns>=[(TempStr0),NY,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<NewLine>
`<RetOn>
`<if>=[(TempStr0),(TheUser),N,@#Abort]
`<SetVal>=[(CNick),(TheUser),(LordNick)]
`<RetOff>
`$Ok...
`<PrintVal>=[(CNick),(TheUser)]
`<Space>
`$You will now be asked a few questions...
`<NewLine>
`<RetOn>
`2To refuse an answer type a zero.

`<RetOff>
`2Please tell us...what's yer real age?
`2 >
`<LordIn>=[(CAge),70,100,2,(TheUser)]
`<NewLine>
`<RetOn>
`2
`2
`2
`2
`2(`51`2)  Red
`2(`52`2)  White
`2(`53`2)  blonde
`2(`54`2)  dirty blonde
`2(`55`2)  mousy color
`2(`56`2)  light brown
`2(`57`2)  brown
`2(`58`2)  dark brown
`2(`59`2)  very dark brown
`2(`510`2)  extremely dark brown
`2(`511`2)  so dark it really looks black
`2(`512`2)  so dark it really is black
`2
`<RetOff>
`2Ok from above choices..whats yer hair color? >
`<LordIn>=[(CHair),70,100,2,(TheUser)]
`<NewLine>
`<RetOn>
`2
`2(`51`2)  Red
`2(`52`2)  Green
`2(`53`2)  Blue
`2(`54`2)  Greenish blue
`2(`55`2)  Blueish green
`2(`56`2)  grey
`2(`57`2)  light blue
`2(`58`2)  dark blue
`2(`59`2)  dark green
`2(`510`2)  dark brown
`2(`511`2)  light brown
`2(`512`2)  black as midnight
`2
`<RetOff>
`2Ok from above choices..whats yer eye color? >
`<LordIn>=[(CEyes),70,100,2,(TheUser)]
`<NewLine>
`<NewLine>
`2Here's an easy one are you [M]ale or [F]emale? `0[`5M`0]:
`<Space>
`<GetAns>=[(TempStr0),MF,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<if>=[(TempStr0),(TheUser),M,`<SetVal>=[(CRealSex),(TheUser),10]]
`<if>=[(TempStr0),(TheUser),F,`<SetVal>=[(CRealSex),(TheUser),5]]
`<NewLine>
`2Are you open to meeting a player in real life (Y/N)?  `0[`5Y`0]:
`<Space>
`<GetAns>=[(TempStr0),YN,(TheUser)]
`<PrintVal>=[(TempStr0),(TheUser)]
`<if>=[(TempStr0),(TheUser),Y,`<SetVal>=[(CLikeToMeet),(TheUser),1]]
`<if>=[(TempStr0),(TheUser),N,`<SetVal>=[(CLikeToMeet),(TheUser),0]]
`<NewLine>
`<NewLine>
`2Enter your own comment about yerself now (1 line)
`<NewLine>
`2 >
`<LordIn>=[(Comment),45,99,2,(TheUser)]
`<NewLine>
`<RetOn>
`0Done!
@#TavernOptionsR
`<SetMenuAndFile>=[MainMenu,(TLifesDir),MAINTXT.DAT]
@#TavernOptions|
`<SetMenuAndFile>=[MainMenu,(TLifesDir),MAINTXT.DAT]
@#FHadDrink
`<NewLine>
`3Sorry pal...but I think you've had just about enough!
@#NotChat
`<NewLine>
`4Wait just one cotton picking minute pal...
`2You will have to chat about yourself first!!!
@#UserNotFound
`<NewLine>
`<RetOn>
`7User not found...
`2The user may not have been in lord life yet...
`2Or you may not have entered the name right...
`2Type less of the name if you are unsure...
`3Its best just to give the first letter of the user's name...
@#UserNoInfo
`<NewLine>
`2Sorry...but that user has not entered their info yet.
`<NewLine>
@#Abort
`<NewLine>
`4Aborted!
`<NewLine>
@#FTalked
`<NewLine>
`2Sorry...but Trisnic is busy...come back tommorow.
`<NewLine>
@#NSF
`2
`2Sorry...but you do not have enough money...
`3Go to the bank and get some money...or `4get lost!
@#ENDOFFILE